home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / COMMAND ZAP.A.bas < prev    next >
BASIC Source File  |  2000-01-01  |  951b  |  12 lines
  1. 3  REM  <CTRL-M><CTRL-M>===============<CTRL-M>COMMAND ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>===============
  2. 5 S1 =  PEEK(768):S2 =  PEEK(769):E1 =  PEEK(770):E2 =  PEEK(771): ONERR  GOTO 75
  3. 10  HOME : INVERSE : PRINT " COMMAND ZAP ": NORMAL : PRINT : PRINT " BY BERT KERSEY": PRINT " BEAGLE BROS": PRINT : PRINT 
  4. 20  INPUT "REPLACE ^'S ON LINE NUMBER: ";LI:LS = S1 +S2 *256:EN = E1 +E2 *256
  5. 30 LE =  PEEK(LS) + PEEK(LS +1) *256:LQ =  PEEK(LS +2) + PEEK(LS +3) *256: IF LS >EN  OR LQ >LI  THEN  INVERSE : PRINT " LINE NOT FOUND ": NORMAL : GOTO 70
  6. 40  IF LQ < >LI  THEN LS = LE: GOTO 30
  7. 50  FOR I = LS TO LE: IF  PEEK(I) =  ASC("^")  THEN  POKE I,8
  8. 60  NEXT : INVERSE : PRINT " DONE ": NORMAL 
  9. 70  PRINT : INPUT "ANOTHER LINE (Y/N)?";A$: IF A$ = "Y"  THEN 80
  10. 75  POKE 103,S1: POKE 104,S2: POKE 175,E1: POKE 176,E2: END 
  11. 80  VTAB  PEEK(37): GOTO 20
  12. 65535  REM   <CTRL-M><CTRL-M>===============<CTRL-M>COMMAND ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>===============